home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / SATAN11.ZIP / HTML / REPORTIN / SATAN_RE.PL < prev    next >
Encoding:
Text File  |  1995-04-01  |  1.2 KB  |  40 lines
  1. #
  2. # List hosts that trust this host by trust relation
  3. #
  4. ($_TRUSTED, $_sort_order) = split(/,/, $html_script_args);
  5. ($_trusted = $_TRUSTED) =~ tr/?!/ \//;
  6.  
  7. print CLIENT <<EOF;
  8. <HTML>
  9. <HEAD>
  10. <title> Trust - $_trusted</title>
  11. <LINK REV="made" HREF="mailto:satan\@fish.com">
  12. </HEAD>
  13. <BODY>
  14. <H1><IMG SRC=$HTML_ROOT/images/satan.gif> Trust - $_trusted</h1>
  15. <hr>
  16.  
  17. <h3>Hosts trusting $_trusted (vulnerability counts). </h3>
  18.  
  19. <H4> Sort hosts by:
  20. <a href="satan_results_trusting.pl,$_TRUSTED,name,">name</a> |
  21. <a href="satan_results_trusting.pl,$_TRUSTED,domain,">domain</a> |
  22. <a href="satan_results_trusting.pl,$_TRUSTED,type,">system type</a> |
  23. <a href="satan_results_trusting.pl,$_TRUSTED,subnet,">subnet</a> |
  24. <a href="satan_results_trusting.pl,$_TRUSTED,severity,">problem count</a> |
  25. <a href="satan_results_trusting.pl,$_TRUSTED,severity_type,">problem type</a> |
  26. <a href="satan_results_trusting.pl,$_TRUSTED,trustee_type,">trust type</a>
  27. </H4>
  28. EOF
  29.  
  30. @_hosts = split(/\s+/, $total_trustee_names{$_trusted});
  31. do "$html_root/reporting/sort_hosts.pl";
  32. print CLIENT $@ if $@;
  33.  
  34. print CLIENT <<EOF;
  35. <hr> <a href=$HTML_STARTPAGE> Back to the SATAN start page </a> |
  36. <a href=analysis.pl> Back to SATAN Reporting and Analysis </a>
  37. </BODY>
  38. </HTML>
  39. EOF
  40.